﻿<Serializable()> _
Public Class GuiRectangle
    Private m_rectangel As Rectangle
    Private m_topLeft As Point
    Private m_TextBlock As TextBlock

    Public Sub New(ByVal p_Rectangel As Rectangle, ByVal p_TopLeft As Point)
        m_rectangel = p_Rectangel
        m_topLeft = p_TopLeft
        m_TextBlock = New TextBlock
        m_TextBlock.Background = New SolidColorBrush(Colors.Transparent)
        m_TextBlock.Height = m_rectangel.Height
        m_TextBlock.Width = m_rectangel.Width
        m_TextBlock.TextAlignment = TextAlignment.Center
        m_TextBlock.VerticalAlignment = VerticalAlignment.Center
        '  m_TextBlock.FontStretch = FontStretches.Condensed
        m_TextBlock.FontStretch = FontStretches.Expanded


    End Sub


    Public Property TextBlock() As TextBlock
        Get
            Return m_TextBlock
        End Get
        Set(ByVal value As TextBlock)
            m_TextBlock = value
        End Set
    End Property

    Public Property Rectangel() As Rectangle
        Get
            Return m_rectangel
        End Get
        Set(ByVal value As Rectangle)
            m_rectangel = value
        End Set
    End Property


    Public Property TopLeft() As Point
        Get
            Return m_topLeft
        End Get
        Set(ByVal value As Point)
            m_topLeft = value
        End Set
    End Property
End Class
